﻿Imports Microsoft.VisualBasic

Imports System.Data

Public Class TempData
    Public Function GetTempData() As DataTable


        Dim dt As DataTable = New DataTable()
        dt.Columns.Add("AAA")
        Dim dr As DataRow
        dr = dt.NewRow()
        dr("AAA") = "001"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr("AAA") = "002"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dt.Rows.Add(dr)
        Return dt
    End Function
End Class
